-- card: 3033 from stack: in.5
-- bmap block id: 0
-- flags: 0000
-- background id: 2665
-- name: 


-- part 13 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=56 top=265 right=285 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CR
----- HyperTalk script -----
on mouseUp
  if hilite of me is true then
    hide msg
    set hilite of card button "Tab" to false
    set hilite of card button "Other" to false
  end if
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=129 top=265 right=285 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tab
----- HyperTalk script -----
on mouseUp
  if hilite of me is true then
    hide msg
    set hilite of card button "CR" to false
    set hilite of card button "Other" to false
  end if
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=196 top=265 right=285 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other
----- HyperTalk script -----
on mouseUp
  if hilite of me is true then
    set hilite of card button "CR" to false
    set hilite of card button "Tab" to false
    put empty into field "field_del"
    click at the location of field "Field_del"
  end if
end mouseUp



-- part 17 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=33 top=92 right=248 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseup
  set visible of me to false
end mouseup


-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=343 top=264 right=288 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reset Defaults
----- HyperTalk script -----
on mouseUp
  hide msg
  put empty into field "message"
  set hilite of background button "CR" to false
  set hilite of card button "Tab" to false
  put empty into field "Rec_del"
  put empty into field "Field_del"
  click at location of background button "CR"
  click at location of card button "Tab"
end mouseUp



-- part contents for card part 17
----- text -----
     This Stack will convert your Address Stack into a standard text file named "Add->Text" (in your Hypercard folder) for importing into another database or a mail merge program. It will separate each card into 12 Fields -- Fields 1 & 2 are for First and Last Names, Fields 3 - 8 are for the Addresses, Fields 9-11 are for the Phone Numbers, and Field 12 becomes the End of Record Deliminator.

      Freeware, © 1990 Paul Bresciani, Version 1.0, July 25, 1990
   Compuserve 76367,2641 - AOL 'BRESCIANI' - Delphi 'BRESCIAN'